(ccl-compile-translate-character): Handle

the case that a tranlation table is CCL register correctly.

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index b22fd32cbdac67ecb7141ada79f182ac67069cdd..33ba65201b22682bbc9ec29b4d8dc4d5e7723389 100644 (file)
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -885,7 +885,7 @@
        (rrr (nth 3 cmd)))
     (ccl-check-register rrr cmd)
     (ccl-check-register RRR cmd)
-    (cond ((symbolp Rrr)
+    (cond ((and (symbolp Rrr) (not (get Rrr 'ccl-register-number)))
           (if (not (get Rrr 'translation-table))
               (error "CCL: Invalid translation table %s in %s" Rrr cmd))
           (ccl-embed-extended-command 'translate-character-const-tbl